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After completion of SMOOTH, the times and elevations of major peaks and 
valleys are stored in the first ITEMS elements of EXTIM. The value of ITEMS 
has been reduced in accordance with the number of small peaks and valleys 
eliminated. Since the smoothing algorithm cannot work properly at the end of 
a record, the last few points are usually accepted regardless of whether or 
not they satisfy the acceptance criteria. Thus, the last six elements in 
EXTIM may not represent major peaks or valleys and should either be checked 
or categorically eliminated. 


A complete list of subroutine SMOOTH with comments is provided in Figure 
C-26 


SUBROUTINE SMOOTH (FUNSTs ITEMS) 


SUBROUTINE SenUT™ Taat§S a WECDRA OF PRAMS AND VALLEYS aND 
ELIMINATES TVCUNSEWUENT Tal PEARS BwD VALLEYS, Tug ELIMINATION 
COITEOLs akE & MINIMUM DEFERENCE BETWEEN Pkeam ANA VALLEY y 
ELEVATIONS (@™)N) BND & WIN Tem MORTZONTAL SPACING (BE IT 
TIMES POSTTIUNs UTC) BETWEEN PEAR OND VALLEY (CHP), 
INPUT PakaMETERS OFF NEFINED 48 FULLOMSe 
FyNst & STawTING TIME : . 
ITEMS B TOTAL NUMBER OF EXTREME VALUES (INCLUDES TIME and : 
ELEVATION VaLUES) 
CrP a CRITICAL =aLh PERIOD 
erty @ MINTRUM MEIGKT TU BF CONSTOEXED 
€xty"(OoO) s TIME 
EKTIMCEVEN) & EXIMEME ELEVATION aSSOCIaATED alTm EXTIMCEVEN|S) VALUE 
OF TIME 
COMPON /SenTe  EXTIBL UA) 
SET VALUES OF CHP anD meyn TO Be USED 
Data Cehe wHIN 7 U,008 3,0 ¢ 
€ INITIALIZE Ve@TABLES and FIND STAPTING POINT FOR PROCESSING 
ISOS TITEMSSITERS 
Js} iA 
TIEVTAITERSe7 F 
CO 150? TeyeSTTE*Se?2 . 
$4) Ps] , 
TF CERTIACIS GE FURST) GU YO 1Soa 
4 JzJe2 
LTEMSSITEMSeQ 
1502 CONTINUE 
1500 JSIaARTeySaye 


COoess ess eFadSHPSS SSE EHHSH OK ESS HSST SHAT SSUES SSSFSHSHCHS Svea eesSesVeesosEes 


ANADKNAANN nnaandn 


fal 


¢ BEGIN malty PROCESSING LOOP 
OO 1520 TETSTARTITEMIe? 
Lat 
TECYSTART CT, JTE*79GO TL 15Ph 
TECERTIM CT eCmP CT ERT EE} e2160 TH 1$31 
TECamSCeaTpH (pep yee xTIMCTs 3rd LT we Ie)GO TO 351) 
c TF NO TRaNSEED, TmIS ERTHEME ACCEPTED 
Exvy“cSosteeryacyy) 
ExV pisos eeatinedes) 


Jzce2 
GO YO 1520 
c emg Tre NEXT INSTRUCTION JS Cg aCmEns ONE HIGH AKD ONE LO™ BILL 
¢ BE OLLETEN 
1Sd1 TECERTIMCLor) Gt estimcle3ds GH TO 1500 
c IF NEAT INST@UCTION [8 SEDe TalS fg 4 LOW i 


TECERTIOC1l egy GT, LITINC1649ICN TO 1932 
TECERTIOCIOS$) GT,LATIAC19139G0 70 4518 
Gu tO 1917 
1Sg2 TECEXVIMCI 03) GT,EETINCI97IIGO 10 9530 
GU 19 1$)0 
(4 wME% MEET TOSTRUCTION 18 USEDe TH?s 35 & MIGR 
; 1Sqe TECERTIMC S05) Gr cetiede33 9G Te 1585 
‘ TECERTIMCIL OT) GT EsTIMCLesvIGe TO 159% 
GC TO 1$t6 
15145 Th CEaTE"CTe$) eGTOERTINC 1019960 To 1517 . 
GO TO 1518 


iq SET TWE vaLuE OF ICaSE 
1Sye 1Castst 
GO 10 1923 
1$17 1CaSese 
60 TO 1521! 


List of subroutine SMOOTH (from Thompson, 1980). 


Figure C-2. 
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GG TO 152% 
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Jistee 

J2erey 

DELETE ONE HIGH AND ONE LOW aCCOROING TO THE VaLUE OF 1caSe€ 

GO 706152201523 ,152401525) ICASE. 
STORAGE PLAN A 
EXTIM( Jo2) sExtInclea) 
EXTIM(J=1] SExTImcles) 
ExTIM(J)SExTIA(T) 
EXTIMCJeLISExTIM(Ie$) 
EXTIMC J+A) SEXTIM(1¢6) 
EXTIM( Je3SExTIN(I¢7) 
GO TO 1526 
STORAGE PLAN B 

EXTIM(C Je2sExTIN(Iwe) 
ExTiM( Jel) sEutIm(les) 
EXTIMCQISEKTIM(C Joa) 
EXTIM( Jel SEXTIN( 145) 
EXTIM( Je2 .seExTIM( leo) 
EXTIM( JOS) SExTIMCIO7) 
GO TO 1526 
STORAGE PLAN C 
EXTIM(CJe2 sExTIM(Ie2) 
EXTIM( JoLISEXTIM(1¢3) 
EXTIMCJISEXTIMC eG) 
EXTIM( Jey SExTIeC1¢5) 
EXTIM(CJ*QSEXTIM¢( 36) 
EXTIM(J¢3) SEXTIMC1¢7) 
GO TO 1$26 
STORAGE PLAN D0 
EXTIMCIeO)SEXTIM(1e2) : 
ExTIM( IO 7)SEXTIMN(]¢3) 
EXTIM( Ja2eExTIMN(lee2) 
EXTIM( Jos SEXTIM(C I 03) 
EXTIMC JSISEXTIMCT) 
EXTIM(C JEL ISEXTIM( 341) 
ExTIM( Jeo)sextIn(le2} 
EXTIMCSeSISEXTIM(1L¢3) 
Kisiea 
K221440 

JisJe2 
J2eJe3 

TTEMSZITEMS@& 
ISKIPsI¢8 
JaJeoag 
GO TO $So4a 

CONTINVE 

END MAIN PROCESSING LOOP 
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RETURN 
END 


Figure C-2. List of subroutine SMOOTH (from Thompson, 1980) .--Continued 
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(Numbers indicate amplitude rank for constituents) 
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Figure D-1. South Haven, 1700 to 1800 e.s.t., 1,024-second records analyzed. 
Starting time of record is noted beside each curve. 
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Figure D-2. Columbia Light, 1300 to 1308.5 P.d.t., 512~second 
record analyzed. 
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(lumbere indicate amplitude rank for constituents) 
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Figure D-3. Columbia Light, 1308.5 to 1317 P.d.t., 512-second 
record analyzed. 
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Qtumbers indicate amplitude renk for constituents) 


SYMBOL DESCRIPTION 
° Fundanencal 


z Second harmonic 
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PHASE ( DEG.) 
w 
° 
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FUNG .: 0.08 
2NO HARH.: 0.16 
FREQUENCY (HZ) 
‘igure D-4. Columbia Light, 1408.5 to 1417 P.d.t., 512-second 
record analyzed. 
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(Numbers indicate amplitude renk for constituents) 
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o$ s 
FREQUENCY (HZ) 
Figure D-5. Columbia Light, 1500 to 1508.5 P.d.t., 512-second 
record analyzed. 


(Qhunbare indicace amplitude rank for constituents) 
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Figure D-6. Columbia Light, 1508.5 to 1517 P.d.t., 512~second 
record analyzed. 
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Figure D-7. Columbia Light, 1300 to 1317 P.d.t., 1,024-second 
record analyzed. 
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South Pass, 1500 to 1510 c.d.t., 600-second 
record analyzed. 
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Figure D-8. 
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(Wanders indicate amplitude rank for constituents) 
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Figure D-9. South Pass, 1510 to 1520 c.d.t., 600-second 


record analyzed. 
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Figure D-10. South Pass, 1520 to 1530 c.d.t., 600-second 
record analyzed. 
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(Muabere indicate amplitude rank for constituents) 
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Figure D-l1l. South Pass, 1530 to 1540 c.d.t., 600-second 
record analyzed. 
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(Nuabers tadicete amplitude rank for constituents) 
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Figure D-12. South Pass, 1540 to 1550 c.d.t., 600-second 
record analyzed. 
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Figure D-13. South Pass, 1550 to 1600 c.d.t., 600-second 
record analyzed. 
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APPENDIX E 


PLOTS OF MAJOR PEAKS AND VALLEYS IN LOCAL VARIANCE TIME SERIES 
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Figure E-1. South Haven, 1700 to 1720 e.s.t., I = 52, G = 0.63. 
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Figure E-2. South Haven, 1720 to 1740 e.s.t., I = 52, G = 0.79. 
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Figure E-3. South Haven, 1740 to 1800 e.s.t., I = 52, G = 0.69. 
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Figure E~4. Columbia Light, 1300 to 1317 P.d.t., Is 60, G = 0.67. 
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Figure E-5. 
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Figure E-6. 
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Columbia Light, 1400 to 1417 P.d.t., I = 60, G = 0.50. 
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Columbia Light, 1500 to 1517 P.d.t., I = 60, Gs 0.60. 
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Figure E~7. South Pass, 1500 to 1520 c.d.t., I = 260, G = 0.60. 
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Figure E-8. South Pass, 1520 to 1540 c.d.t., I = 260, G = 0.59. 
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Figure E-9. South Pass, 1540 to 1600 c.d.t., I = 260, G = 0.66. 
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